EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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, IBSSCANC = Scan for character 16-SEP-1984 00:18:08 VAX/VMS Macro v04-00 Page 0 
able of contents 


(@ 3 DECLARATIONS 
(3) LIBSSCANC = Scan characters 
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SEP=1984 


LIBS CANC - Scan for character 
3; File: LIBSCANC.MAR Edit: $8L1007 


LIBRTL.S REIL IBSCANC MAR; 1 


- TITLE 
- IDENT 


REAR AAA EA EAE AAA EAE E AAA AAAAAAAAORAAAAAAAEAEAEAEEAAEAAAEAEAEAAERERARAAEEAAAEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQU LPRENT _GORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESER 


HED UNDER A LICENSE AND MAY BE USED AND corres 
H THE TERMS OF SUCH LICENSE AND WITH THE 
gtd hdl NOTICE. THIS SOFT ARE OR ANY OTHER 
BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
E TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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= TRANSFERRED. 
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:f 
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* 

:f 

sf 
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3) ss 4 4 5 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORaT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+4 
; FACILITY: General Utility Library 
; ABSTRACT: 


Return an index into the source string of the satisfying 
character or zero 


; ENVIRONMENT: User Mode, AST Reentrant 


: AUTHOR: Donald G. Petersen, CREATION DATE: 03-Jan-78 
> MODIFIED BY: 


OOoOoooooooooo 
COOooooooooooooSo 


SOooooooooooooooooo 


DGP, 05-Jan-76 : VERSION 00 


Origina 

DGP 05-Jan-78 - table.rbu.ra for table.rt. dx 

DGP 18-Jan-78 - remove one instruction 

Updated version number and gopyrignt oe notice. won 16-NOV-78 
Add to th 4 PSECT directive. 

at gitry, mask to save R2 and R3 obich. a y+ AO 


! _m! 
ooooo 
eeeueuee 


= Enhance to recognize geet tenet classes of strin descr intors 
ANALYZE_SDESC ee to aeateece Length and address 
: data byte —— déscripfor. 

3; 1-005 - pecial-case code to process string descriptors that 

: Agee like fixed stri ng descriptors. RKR T-1981. 

3 1-006 - Redirect jsb’s from LIBSANALYZE_SDESC_R3 to 


of is jovet ng L, 


NOMA WN 0 OD NA UE WIN O OD NAME WIN O ODNAU EWN $0 OD NOU SW OOONOUS WR 
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i da heaped ec gprmhmibeg Beeb R882 99:18:98 HMERTE. SRESerBScanc.mar:1 "28° (7, 
0090 § : 1-007 - Se te tae cectater “- "tok, Binet it is used as a temporary 
60 : SPR 11-80566" SBC Se-Oct-1980, ’ 


Pa19Be 11:10:98 ELIORTL.SREILIBSCANC.maR;1 “29° (3, i: 


Tt mane = Scan ye, .gherector thes a 


4 


é »SBTTL DECLARATIONS 
; INCLUDE FILES: NONE 


; EXTERNAL SYMBOLS: 
-DSA GBL i: Only explicit external 
~EXTRN LIBSANALYZE_SDESC_R2 ; Gxtract length and address of 
; ; Ist data byte 
; MACROS: 


SDSCDEF : field in a descriptor 


: EQUATED SYMBOLS: NONE 


+ OWN STORAGE: NONE 


: PSECT DECLARATIONS: 
.PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


00.09 09 69 09 09 09 0909 SI NI NII NINN NINA A AAAAOAO 
DNAUES WIN $$ O OONAUE WIN" O OONOUE UM 


111 
cter 16-SEP-1984 00:18: AX/VMS Macro V04-00 Page 
n characters mets 7 90:18:98 YAR TL. SRESLIBSCANC..MAR: 1 ° dy 
rx -SBTTL LIBSSCANC = Scan characters 
FUNCTIONAL DESCRIPTION: 


asim 
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The bytes of the string specified by the source descriptor are 
successively used to index into a the table. 

The y¥e selected from the table is ANDed with the mask byte 
speci ied by the mask descriptor. The operation continues 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se 


fo 
i 
until the result 9 the AND is non-zero. The relative position 
of the character in the source string which terminated the 
1 operation is returned if one is found. Otherwise, zero 
1 is returned. If the source striing has a Length of zero then 
! @ zero is returned. 
: ' CALLING SEQUENCE: 
1 index.wlu.v = LIBSSCANC (src.rt.dx, table.rbu.ra, mask.rbu.r) 
10 
4 109 ; INPUT PARAMETERS: 
00000004 0 111° SOURCE = 4 ; Adr of source string desc 
00000008 0 Wi TABLE = ; Adr of base of table 
0000000C 4 BF MASK = 1 ; adr of mask byte 
00 115 : IMPLICIT INPUTS: 
2099 "7 ; NONE 
000 119 $ OUTPUT PARAMETERS: 
0000 120; 
44 : 13 NONE 
0 3 
0000 «1 4 3 IMPLICIT OUTPUTS: 
0000 (124; 
+44 ; > NONE 
' 3 
° ! $ 3: FUNCTION VALUE: 
} ; : INDEX.wlu.v ; the resulting position 
1 3 SIDE EFFECTS: 
1 j ; NONE 
134; 
1 $ eENTRY LIBSSCANC , “M<R2, R3, R4> 3 Entry oint 
50 04 AC 1 8 MOVL SOURCE (AP), 3; address of SOURCE descriptor 
Go00gge"s 1 JSB G“*LIBSANALYZE_SDESC_R2 ; Extract: Length->R1, addr->R2 
4 51 140 MOVZWL R1, R4 : save Length of SOURCE 
0c BC O08 BC 62 54 126 SCANC R4, (R2), @TABLE(AP), @MASK(AP) ; Scan character 
14 ; State of regs after a SCANC instr. 
144 ; RO = number of bytes remaining in 
145 3 source string (including the byte 
146 : which produced the nonzero AND 


J 11 
PF egCan characters "SSER ASRS PPz1R93 HEGRE SRESCIESCanC.man:1 "28° 3) 


is 


65" (1888 


n f 

CAN 
1 14 ; R1 = If found, address of byte which ‘ 
1 14 : roduced non zero AND, : 
1 14 3 else address of 1 byte beyond : 
} ! : ource string . 
Py = ° 
} ! § ; R35 = address of table ; 
6 3 1 154 BEQL 10$ ° ; branch if no character found ‘ 
50 «54 A 1 155 SUBW3 = RO, R4, RO 3; get position of character . 
0 6 | § INCL RO 3 one origin : 

4 QO1E 157 108: RET 
O1F 158 «END 


K 11 


The working set Limit was 1050 pages. 

774 bytes (16 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space on eceree to hold 136 non-local and 1 Local symbols. 
158 source Lines were read in Pass 1, produci ah 

m 


object records in Pass 2. 
8 pages of virtual memory were used to define 


acros. 


Sete cet ewes mente wren ese ema} 


Ratatat etree Eten dtntecre | 
Macro Library name 
“S255SDUAZB:(SYSLIBISTARLET.MLB;20 0 SS e 
190 GETS were required to define 4 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ON/D1I SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBSCANC/OBJ=0BJ$:LIBSCANC MSRC$:LIBSCANC/UPDATE=(ENHS$:LIBSCANC) 


macros. 


LIBSSCANC - Scan for character 16-SEP=1 :1 AX/VMS 04-00 Pp 18' 
Symbol table g-8 SEP=19 138 90: 18: 98 YaRTE L.S Ti SCANC .MAR; 1 ic %) 1-6 
LIBSANALYZE_SDESC_R2 aeeeeeee =X 09 4 
LIBSSCANC SHS RG : 
MASK = t : 
SOURCE - : 
TABLE = 00000008 é 
tern ocn wre roscesen + ; 
; Psect synopsis iz : 
PSECT name Allocation PSECT No. Attributes 3 
» 8 s 0000000 ( 8.3 0(¢ 0.) NOPIC USR CON ABS’ LCL aS NOEXE NORD at NOVEC BYTE a 
$ 44 4 44 ( -) O1¢ #1.) \NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE ; 
LIBSCODE QOOOOO1F ¢ 31.) 2¢ 2.) PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG ; 
$ewooeoececcecesceesecece ° 
! Performance indicators ; : 
Phase Page faults CPU Time Elapsed Tine : 
Initialization 9 0:00: 8.93 0:00: 1.11 ; 
gonnene processing 127 0:00:00.36 0:00: £-93 ; 

s 1 135 3:88: 1.09 0:00:04.50 ; 
Syabol table sort 9 :00:00.11 88838 a4 $ 
Pass 4 0: 3:8 30 0:00: “f ; 
Symbol table output 0:00:00.01 00:00:00.02 ; 
Psect synopsis output Bp: +08 -O4 i a 3 
Cross-reference output 0:00:00.00 BB Be : 
Assembler run totals 34 00:00:01.94 00:00:10.6 : 
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